home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok49.lha / Display.Write_BUG / writebug.mod < prev    next >
Text File  |  1993-08-15  |  757b  |  38 lines
  1. MODULE WriteBug;
  2.  
  3. IMPORT dis :Display,
  4.        Ndis:NDisplay,
  5.        m   :Mouse;
  6. VAR
  7.   Fenster : dis.WindowPtr;
  8.  NFenster : Ndis.WindowPtr;
  9.   i       : INTEGER;
  10.  
  11.  
  12. BEGIN
  13.   NEW(NFenster);
  14.   IF Ndis.OpenWindow(NFenster,"Display.NoBug",20,120,200,70,NIL) THEN END;
  15.   i:=0;
  16.   Ndis.Write(NFenster,"Zuerst ohne Fehler mit NDisplay.Write:");
  17.   REPEAT
  18.     INC(i);
  19.     Ndis.Write(NFenster,"Bitte linke Maustaste drücken!");
  20.     m.WaitLMB;
  21.   UNTIL i>10;
  22.   Ndis.Clear(NFenster);
  23.  
  24.  
  25.   NEW(Fenster);
  26.   IF dis.OpenWindow(Fenster,"Display.WriteBug",320,120,200,70,NIL) THEN END;
  27.   i:=0;
  28.  
  29.   dis.Write(Fenster,"Und jetzt mit Fehler mit Display.Write:");
  30.   REPEAT
  31.     INC(i);
  32.     dis.Write(Fenster,"Bitte linke Maustaste drücken!");
  33.     m.WaitLMB;
  34.   UNTIL i>10;
  35.  
  36.  
  37. END WriteBug.
  38.